برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
27 خرداد 1389برچسب:, :: 3:12 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

برنامه یToolbars

این برنامه یک Toolbarsبا امکاناتی بالا در بالای مانیتور قرار میده که

خیلی جالبه این رو با دستای خودم نوشتم کفتم چون زیاد طول نکشید

سورسش رو هم براتون بزارم

vb6

دانلود کد سورس

رمز:vb6

27 خرداد 1389برچسب:, :: 3:8 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

هر هفته یک برنامه ی کاربردی

توی این هفته این برنامه رو براتون آماده کردم

همانند برایی ویندوز اما با کمی کارایی کمتر ولی امکانات بیشتر

حتما دانلودش کنید اگر نظر بدین سورسش رو براتون می ذارم

vb6

دانلود برنامه

رمز:vb6

25 خرداد 1389برچسب:, :: 2:55 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

به روش زیر عمل کنید

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

بعد از معرفی تابع بالادستور زیر رادر یک دکمه بنویسید

Dim A as Long
Private Sub Command1_Click()
     A = timeGetTime
     Text1.Text = A
End Sub

موفق باشید

25 خرداد 1389برچسب:, :: 2:49 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

امروز کد یه دفتر چه تلفن خوب با امکانات خوب گذاشتم که لذتش رو ببرین

نظر هم بدین ممنون

Vb6_Source

ددانلود کد سورس

25 خرداد 1389برچسب:, :: 12:4 قبل از ظهر :: نويسنده : حسام بخشعلی زاده

API تغییر برجسب درایو

این ای پی ای نام برچسب داریو شما را تغییر می دهد

برای این منظور دستور زیر را در یک ماژول بنویسد

Public Declare Function SetVolumeLabelA  Lib "kernel32.dll" (ByVal lpRootName  As String,
ByVal lpVolumeName As String) As Long

 : lpRootName مسیر پوشه:مثل درایو :\C

VolumeNameنام برچسب "ویژالبیسیک"

بعد دستور زیر را در یک دکمه یا فرم لود بنویسید

Dim A As Long
     Private Sub Commad1_Click()
     A = SetVolumeLabelA("C:\", "VisualBasic")
End Sub

موفق باشید

منتظر API بعدی باشید

24 خرداد 1389برچسب:, :: 8:47 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

کامپونت پخش فایل های gif در وی بی

با این کامپونت می تونید فایل هایgif در وی بی اجرا کنید..

 

دانلود کامونت

24 خرداد 1389برچسب:, :: 8:46 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

برنامه ی Visual Basic Code Library

این برنامه رو که خودم نوشتم یک منبع سورس کد خوبیه از

تمامی بخش های ویژال بیسیک ۶.....

حتما دانلودش کنید این نسخه رو به صورت رایگان ساختم میدونی چرا

چون ۲ ماه طول کشید کد هاشو ژیدا کنم....

vb6

دانلود برنامه با حجم ۹۰۰ کیلو بایت

پسوورد : vb6

24 خرداد 1389برچسب:, :: 8:45 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

برنامه ی FalHafiz

این برنامه قابلیت گرفتن فال شما رادارد و دارای

ظاهر زیبایی نیز است

این رو خودم با وی بی نوشتم کد سورسش رو هم با در خواست شما می زارم

vb6

دانلود برنامه با حجم ۹۳۰ کیلوبایت

رمز:vb6

22 خرداد 1389برچسب:, :: 5:24 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

نمایش نام کاربری

برای انجام این کار یم تکست در فرم بگزارید و

API زیر رو در جنرال بنویسید

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

برای نمایش ان بر روی فرم دبل کلیک کرده و دستور زیر را بنویسید

Dim Buffer As String
Buffer = String(255, 0)
GetUserName Buffer, 255
Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
Text1 = Buffer

سعی می کنمAPI بیشتری رو بزارم فعلا بای...

 

22 خرداد 1389برچسب:, :: 5:18 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

تغییر زبان صفحه کلید

برای این کار دستور زیر را در جنرال بنویسید

Private Const HKL_NEXT = 1
Private Const HKL_PREV = 0

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Dim oldKB As Long

بعدش دستور زیر را برای دکمه تغییر به فارسی بنویسید

    oldKB = GetKeyboardLayout(0)
    ActivateKeyboardLayout HKL_NEXT, ByVal 0&

این هم برای برگرداندنش

    ActivateKeyboardLayout oldKB, ByVal 0&

خیلی آسونه نه

 

 

 

 

 

موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 11
بازدید دیروز : 2
بازدید هفته : 11
بازدید ماه : 123
بازدید کل : 222876
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1